10 POKE53281,0:POKE53280,0:POKE53269,0:DN$="":IU=0
20 PRINT"[147]"SPC(12)"ICON CHANGER"
30 PRINT"[151]ENTER THE FILENAME OF THE ICON YOU WANT TO CHANGE"
40 INPUT IN$
50 PRINT"FILENAME SELECTED IS >"IN$"[151]<":PRINT"IS THIS CORRECT";
60 INPUT" Y/N";AN$:IF AN$<>"Y"THEN10
70 FORCT=1TO16:PD$=PD$+CHR$(32):NEXT:IN$=LEFT$(IN$+PD$,16)
80 OPEN15,8,15,"I0"
90 INPUT#15,ER$,EM$:IFER$<>"00"THENPRINTER$+" "+EM$:CLOSE15:END
100 T=18:S=1
110 OPEN2,8,2,"#"
120 PRINT#15,"U1";2;0;T;S:FC=0:FP=2:BP=5
130 PRINT#15,"B-P";2;0:GET#2,NT$,NS$:T=ASC(NT$+CHR$(0)):S=ASC(NS$+CHR$(0))
140 PRINT#15,"B-P";2;FP:GET#2,FT$:FT$=FT$+CHR$(0):IFASC(FT$)=0THEN280
150 PRINT#15,"B-P";2;BP
160 FORCT=1TO16
170 GET#2,BI$
180 IFBI$=""THENBI$=CHR$(0)
190 FI=ASC(BI$)
200 IFFI>127THENFI=FI-128
210 IFFI<32THENFI=63
220 IFFI>96ANDFI<123THENFI=FIAND223
230 IFFI=34THENFI=63
240 DN$=DN$+CHR$(FI)
250 NEXTCT
260 IFDN$=IN$THEN310
270 DN$=""
280 FC=FC+1:IFFC=8ANDT<>0THEN120
290 IFFC=8ANDT=0THEN560
300 FP=FP+32:BP=BP+32:GOTO140
310 GET#2,IT$,IS$
320 IT=ASC(IT$+CHR$(0)):IS=ASC(IS$+CHR$(0))
330 PRINT#15,"U1";2;0;IT;IS
340 PRINT#15,"B-P";2;5
350 FORCT=1TO63:GET#2,ID$:ID=ASC(ID$+CHR$(0)):POKE831+CT,ID:NEXT
360 POKE53269,1:POKE2040,13:POKE53287,11:POKE53248,110:POKE53249,147
370 POKE53249,147
380 PRINTSPC(15)"<- CURRENT ICON"
390 RESTORE:FORCT=1TO63
400 READNI:POKE895+CT,NI
410 NI$=NI$+CHR$(NI)
420 NEXTCT
430 POKE53269,3:POKE2041,14:POKE53288,11:POKE53250,110:POKE53251,180
440 PRINTSPC(15)"<- NEW ICON"
450 IFIU=0THENPRINT"[151]PROCEED WITH CHANGE";
460 IFIU=0THENINPUT" Y/N";AN$:IF AN$<>"Y"THEN GOTO550
470 IFIU=0THENPRINT#15,"B-P";2;5
480 IFIU=0THENPRINT#2,NI$;
490 IFIU=0THENPRINT#15,"U2";2;0;IT;IS
500 IFIU=0THENIU=1:PRINT"[145][145][145][145][145][145][145][145][145][145][145]":GOTO330
510 PRINT"[151]CHANGE COMPLETED             ":CLOSE2:CLOSE15
520 PRINT"DO YOU WANT TO CHANGE ANOTHER ICON TO   THIS PATTERN";
530 INPUT" Y/N";A$:IFA$="Y"THEN10
540 CLOSE2:CLOSE15:POKE53269,0:END
550 CLOSE2:CLOSE15:POKE53269,0:PRINT"[147]":PRINTSPC(13)"CHANGE ABORTED":END
560 PRINT"FILE NOT FOUND":CLOSE2:CLOSE15:END
570 REM ** ICON DATA **
580 REM ** GEOPAINT ICON **
590 DATA 255,255,255,146,73,1,255,255,125,168,0,1,248,31,141,168
600 DATA 32,81,248,64,33,168,64,225,248,131,17,171,255,253,248,136
610 DATA 17,168,112,33,248,64,33,169,160,65,250,31,129,136,0,1
620 DATA 255,255,255,136,6,129,136,4,189,136,4,129,255,255,255,227
630 REM ** GEOWRITE ICON **
640 DATA 255,255,255,146,73,1,255,255,125,170,170,171,255,255,255,128
650 DATA 0,1,129,94,129,129,170,129,128,0,1,133,251,117,128,0
660 DATA 1,191,215,221,128,0,1,190,237,181,128,0,1,189,181,253
670 DATA 128,0,1,187,124,1,128,0,1,134,245,189,255,255,255,35
680 REM ** GEOWRITE APPLICATION ICON #1**
690 DATA 255,255,255,216,0,31,252,0,31,129,188,31,129,94,1,129
700 DATA 235,1,128,0,1,128,0,1,128,0,1,255,255,255,128,0
710 DATA 1,255,255,255,224,0,7,159,0,249,128,255,1,129,0,129
720 DATA 134,0,97,136,0,17,176,0,13,192,0,3,255,255,255,98
730 REM ** GEOWRITE APPLICATION ICON #2**
740 DATA 31,255,248,64,0,2,0,15,0,128,127,129,131,255,1,143
750 DATA 254,1,176,127,65,128,254,177,131,184,1,142,16,1,128,12
760 DATA 1,143,255,241,128,0,1,136,146,129,141,170,129,138,186,129
770 DATA 136,170,241,128,0,1,15,255,240,64,0,2,31,255,248,251
780 REM ** GEOPAINT APPLICATION ICON **
790 DATA 255,255,255,128,0,1,145,17,1,185,17,1,190,170,253,184
800 DATA 68,1,144,68,1,144,0,1,144,80,1,144,80,1,184,80
810 DATA 1,191,223,253,184,80,1,144,80,1,144,80,1,144,3,255
820 DATA144,2,1,144,2,245,144,2,189,128,2,1,255,255,255,34